package com.beidu.lottery.call.utils;

import org.apache.commons.lang3.StringUtils;
import org.redisson.api.RLock;
import org.redisson.api.RedissonClient;
import org.springframework.data.redis.core.*;
import org.springframework.data.redis.core.script.DefaultRedisScript;
import org.springframework.data.redis.core.script.RedisScript;
import org.springframework.stereotype.Component;

import javax.annotation.Resource;
import java.io.IOException;
import java.time.Duration;
import java.util.*;
import java.util.concurrent.ConcurrentHashMap;
import java.util.concurrent.TimeUnit;
import java.util.concurrent.locks.ReentrantLock;
import java.util.function.Supplier;

/**
 * Redis工具类
 * <p>
 * RedisTemplate<String, Object>
 */
@Component
@SuppressWarnings("unused")
public class RedisUtil {

    @Resource
    private RedisTemplate<String, Object> redisTemplate;

    /**
     * 分布式锁
     * <p>
     * 用法：redissonClient.getLock(key);
     */
    @Resource
    private RedissonClient redissonClient;

    /**
     * ReentrantLock对象Map，用于实现线程同步
     * <p>
     * 用法：locks.computeIfAbsent(key, k -> new ReentrantLock());
     */
    private final Map<String, ReentrantLock> locks = new ConcurrentHashMap<>();


    // =============================分布式锁============================


    //分布式锁过期时间(秒)  可以根据业务自己调节
    private static final Long LOCK_REDIS_TIMEOUT = 30L;

    //分布式锁休眠 至 再次尝试获取 的等待时间 ms 可以根据业务自己调节
    public static final Long LOCK_REDIS_WAIT = 500L;

    /**
     * 加锁
     **/
    public Boolean getLock(String key, String value) {
        return this.redisTemplate.opsForValue().setIfAbsent(key, value, Duration.ofSeconds(LOCK_REDIS_TIMEOUT));
    }

    /**
     * 释放锁
     **/
    public Long releaseLock(String key, String value) {
        String luaScript = "if redis.call('get', KEYS[1]) == ARGV[1] then return redis.call('del', KEYS[1]) else return 0 end";
        RedisScript<Long> redisScript = new DefaultRedisScript<>(luaScript, Long.class);
        return this.redisTemplate.execute(redisScript, Collections.singletonList(key), value);
    }


    // =============================common============================


    /**
     * 指定缓存失效时间
     *
     * @param key  键
     * @param time 时间(秒)
     */
    @SuppressWarnings({"all", "忽略未使用返回值"})
    public Boolean expire(String key, long time, TimeUnit timeUnit) {
        return redisTemplate.expire(key, time, timeUnit);
    }

    /**
     * 根据key 获取过期时间
     *
     * @param key 键
     * @return 时间(秒) 返回0代表为永久有效
     */
    public Long getExpire(String key) {
        return redisTemplate.getExpire(key, TimeUnit.SECONDS);
    }

    /**
     * 判断key是否存在
     *
     * @param key 键
     * @return true 存在 false不存在
     */
    public Boolean hasKey(String key) {
        try {
            return redisTemplate.hasKey(key);
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 删除缓存
     *
     * @param key 可以传一个值 或多个
     */
    public void del(String... key) {
        if (key != null && key.length > 0) {
            if (key.length == 1) {
                redisTemplate.delete(key[0]);
            } else {
                redisTemplate.delete(Arrays.asList(key));
            }
        }
    }

    /**
     * 删除缓存
     *
     * @param keys 多个
     */
    public void delBatch(List<String> keys) {
        if (keys != null && keys.size() > 0) {
            redisTemplate.delete(keys);
        }
    }

    /**
     * 匹配模式Key
     * <p>
     * 性能参考：
     * 对于小key空间(<10w个key),SCAN性能很高,每秒可扫描数万个key。
     * 对中等key空间(10w-100w个key),SCAN每秒扫描速度在1-2万个key级别。
     * 对于大key空间(百万级别以上),SCAN性能会明显下降,每秒可能只有几千个key级别。
     *
     * @param pattern 匹配字符串，如："user:*"
     * @param count   指定每次迭代返回的 key 的数量
     * @author 北渡
     */
    public List<String> scanKeys(String pattern, int count) {
        if (StringUtils.isEmpty(pattern)) {
            return null;
        }
        ScanOptions options = ScanOptions.scanOptions().match(pattern).count(count).build();
        RedisCallback<List<String>> callback = connection -> {
            List<String> result = new ArrayList<>();
            Cursor<byte[]> cursor = connection.scan(options);
            while (cursor.hasNext()) {
                result.add(new String(cursor.next()));
            }
            try {
                cursor.close();
            } catch (IOException e) {
                throw new RuntimeException(e);
            }
            return result;
        };
        return redisTemplate.execute(callback);
    }

    /**
     * 根据匹配模式删除对应Key
     *
     * @param pattern 匹配字符串，如："user:*"
     * @param count   指定每次迭代返回的 key 的数量
     * @author 北渡
     */
    public void deleteByPattern(String pattern, int count) {
        // 匹配Key集合
        List<String> keys = this.scanKeys(pattern, count);
        // 批量删除Key
        redisTemplate.delete(keys);
    }

    /**
     * 匹配前缀删除对应Key
     *
     * @param prefix 键前缀，如："user:"，在函数中拼接成：“user:*”
     * @param count  指定每次迭代返回的 key 的数量
     * @author 北渡
     */
    public void deleteByPrefix(String prefix, int count) {
        // 拼接通配符
        this.deleteByPattern(prefix + "*", count);
    }

    /**
     * 从缓存中获取值, 如果缓存不存在则计算后设置缓存（加锁）
     * <p>
     * 内部使用Lock+双检,实现读写分离
     *
     * @param key      缓存key
     * @param timeout  缓存过期时间
     * @param supplier 计算值的Supplier
     * @return 缓存值或计算后的值
     * @author 北渡
     */
    @SuppressWarnings("unchecked")
    public <T> T computeIfAbsent(String key, long timeout, Supplier<T> supplier) {
        Objects.requireNonNull(supplier);
        T value = (T) this.get(key);
        if (value != null) {
            return value;
        }
        RLock lock = redissonClient.getLock(key + ":lock");
        try {
            lock.lock();
            // 双检
            value = (T) this.get(key);
            if (value != null) {
                return value;
            }
            // 执行supplier并设置缓存
            value = supplier.get();
            if (value != null) {
                this.set(key, value, timeout, TimeUnit.SECONDS);
            }
            return value;
        } finally {
            lock.unlock();
        }
    }

    /**
     * computeIfAbsent重载
     *
     * @author 北渡
     * @see #computeIfAbsent(String, long, Supplier)
     */
    public <T> T computeIfAbsent(String key, Supplier<? extends T> supplier) {
        return this.computeIfAbsent(key, -1, supplier);
    }

    /**
     * 普通缓存获取
     *
     * @param key 键
     * @return 值
     */
    public Object get(String key) {
        return key == null ? null : redisTemplate.opsForValue().get(key);
    }

    /**
     * 根据前缀获取所有的键
     *
     * @param prefix 键前缀
     * @return 键
     */
    public Set<String> keys(String prefix) {
        return prefix == null ? null : redisTemplate.keys(prefix.concat("*"));
    }

    /**
     * 批量缓存获取
     *
     * @param keys 键
     * @return 值
     */
    public List<Object> multiGet(Set<String> keys) {
        return keys == null ? null : redisTemplate.opsForValue().multiGet(keys);
    }

    /**
     * 获取键值对map
     *
     * @param keys 键
     * @return 值
     */
    public Map<String, Object> mGet(Set<String> keys) {
        if (keys == null)
            return null;
        Map<String, Object> map = new HashMap<>();
        for (String k : keys) {
            map.put(k, redisTemplate.opsForValue().get(k));
        }
        return map;
    }

    /**
     * 普通缓存放入
     *
     * @param key   键
     * @param value 值
     */
    public void set(String key, Object value) {
        redisTemplate.opsForValue().set(key, value);
    }

    /**
     * 普通缓存放入并设置时间
     *
     * @param key      键
     * @param value    值
     * @param time     时间 time要大于0 如果time小于等于0 将设置无限期
     * @param timeUnit 过期时间单位
     * @return true成功 false 失败
     */
    @SuppressWarnings({"all", "忽略未使用返回值"})
    public boolean set(String key, Object value, long time, TimeUnit timeUnit) {
        try {
            if (time > 0) {
                redisTemplate.opsForValue().set(key, value, time, timeUnit);
            } else {
                set(key, value);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 如果不存在则设置
     *
     * @param key   键
     * @param value 值
     * @author 北渡
     */
    @SuppressWarnings({"all", "忽略未使用返回值"})
    public Boolean setIfAbsent(String key, Object value) {
        return redisTemplate.opsForValue().setIfAbsent(key, value);
    }

    /**
     * 如果不存在则设置
     *
     * @param key     键
     * @param value   值
     * @param timeout 过期时间
     * @param unit    过期时间单位
     * @author 北渡
     */
    @SuppressWarnings({"all", "忽略未使用返回值"})
    public Boolean setIfAbsent(String key, Object value, long timeout, TimeUnit unit) {
        return redisTemplate.opsForValue().setIfAbsent(key, value, timeout, unit);
    }

    /**
     * 递增
     *
     * @param key   键
     * @param delta 要增加几(大于0)
     */
    @SuppressWarnings({"all", "忽略未使用返回值"})
    public Long incr(String key, long delta) {
        if (delta < 0) {
            throw new RuntimeException("递增因子必须大于0");
        }
        return redisTemplate.opsForValue().increment(key, delta);
    }

    /**
     * 递增
     *
     * @param key   键
     * @param delta 要增加几(大于0)
     * @param time  过期时间（单位秒）
     */
    public Long incr(String key, long delta, long time) {
        if (delta < 0) {
            throw new RuntimeException("递增因子必须大于0");
        }
        Long increment = redisTemplate.opsForValue().increment(key, delta);
        redisTemplate.expire(key, time, TimeUnit.SECONDS);
        return increment;
    }

    /**
     * 递增
     *
     * @param key   键
     * @param delta 要增加几(大于0)
     * @param time  过期时间（单位秒）
     * @param unit  时间单位
     */
    public Long incr(String key, long delta, long time, TimeUnit unit) {
        if (delta < 0) {
            throw new RuntimeException("递增因子必须大于0");
        }
        Long increment = redisTemplate.opsForValue().increment(key, delta);
        redisTemplate.expire(key, time, unit);
        return increment;
    }

    /**
     * 递减
     *
     * @param key   键
     * @param delta 要减少几(小于0)
     */
    public Long decr(String key, long delta) {
        if (delta < 0) {
            throw new RuntimeException("递减因子必须大于0");
        }
        return redisTemplate.opsForValue().decrement(key, delta);
    }


    // ================================Map=================================


    /**
     * HashGet
     *
     * @param key  键 不能为null
     * @param item 项 不能为null
     */
    public Object hGet(String key, String item) {
        return redisTemplate.opsForHash().get(key, item);
    }

    /**
     * 获取hashKey对应的所有键值
     *
     * @param key 键
     * @return 对应的多个键值
     */
    public Map<Object, Object> hMGet(String key) {
        return redisTemplate.opsForHash().entries(key);
    }

    /**
     * HashSet
     *
     * @param key 键
     * @param map 对应多个键值
     */
    public boolean hMSet(String key, Map<String, Object> map) {
        try {
            redisTemplate.opsForHash().putAll(key, map);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * HashSet 并设置时间
     *
     * @param key  键
     * @param map  对应多个键值
     * @param time 时间(秒)
     * @return true成功 false失败
     */
    public boolean hMSet(String key, Map<String, Object> map, long time, TimeUnit timeUnit) {
        try {
            redisTemplate.opsForHash().putAll(key, map);
            if (time > 0) {
                expire(key, time, timeUnit);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 向一张hash表中放入数据,如果不存在将创建
     *
     * @param key   键
     * @param item  项
     * @param value 值
     * @return true 成功 false失败
     */
    public boolean hSet(String key, String item, Object value) {
        try {
            redisTemplate.opsForHash().put(key, item, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 向一张hash表中放入数据,如果不存在将创建
     *
     * @param key   键
     * @param item  项
     * @param value 值
     * @param time  时间(秒) 注意:如果已存在的hash表有时间,这里将会替换原有的时间
     * @return true 成功 false失败
     */
    public boolean hSet(String key, String item, Object value, long time, TimeUnit timeUnit) {
        try {
            redisTemplate.opsForHash().put(key, item, value);
            if (time > 0) {
                expire(key, time, timeUnit);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 删除hash表中的值
     *
     * @param key  键 不能为null
     * @param item 项 可以使多个 不能为null
     */
    public void hDel(String key, Object... item) {
        redisTemplate.opsForHash().delete(key, item);
    }

    /**
     * 判断hash表中是否有该项的值
     *
     * @param key  键 不能为null
     * @param item 项 不能为null
     * @return true 存在 false不存在
     */
    public boolean hHasKey(String key, String item) {
        return redisTemplate.opsForHash().hasKey(key, item);
    }

    /**
     * hash递增 如果不存在,就会创建一个 并把新增后的值返回
     *
     * @param key  键
     * @param item 项
     * @param by   要增加几(大于0)
     */
    public double hIncrBy(String key, String item, double by) {
        return redisTemplate.opsForHash().increment(key, item, by);
    }

    /**
     * hash递减
     *
     * @param key  键
     * @param item 项
     * @param by   要减少记(小于0)
     */
    public double hDecr(String key, String item, double by) {
        return redisTemplate.opsForHash().increment(key, item, -by);
    }


    // ============================set=============================


    /**
     * 根据key获取Set中的所有值
     *
     * @param key 键
     */
    public Set<Object> sGet(String key) {
        try {
            return redisTemplate.opsForSet().members(key);
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }
    }

    /**
     * 根据value从一个set中查询,是否存在
     *
     * @param key   键
     * @param value 值
     * @return true 存在 false不存在
     */
    public Boolean sHasKey(String key, Object value) {
        try {
            return redisTemplate.opsForSet().isMember(key, value);
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 将数据放入set缓存
     *
     * @param key    键
     * @param values 值 可以是多个
     * @return 成功个数
     */
    public Long sSet(String key, Object... values) {
        try {
            return redisTemplate.opsForSet().add(key, values);
        } catch (Exception e) {
            e.printStackTrace();
            return 0L;
        }
    }

    /**
     * 将set数据放入缓存
     *
     * @param key    键
     * @param time   时间(秒)
     * @param values 值 可以是多个
     * @return 成功个数
     */
    public Long sSetAndTime(String key, long time, TimeUnit timeUnit, Object... values) {
        try {
            Long count = redisTemplate.opsForSet().add(key, values);
            if (time > 0) {
                expire(key, time, timeUnit);
            }
            return count;
        } catch (Exception e) {
            e.printStackTrace();
            return 0L;
        }
    }

    /**
     * 获取set缓存的长度
     *
     * @param key 键
     */
    public Long sGetSetSize(String key) {
        try {
            return redisTemplate.opsForSet().size(key);
        } catch (Exception e) {
            e.printStackTrace();
            return 0L;
        }
    }

    /**
     * 移除值为value的
     *
     * @param key    键
     * @param values 值 可以是多个
     * @return 移除的个数
     */
    public Long setRemove(String key, Object... values) {
        try {
            return redisTemplate.opsForSet().remove(key, values);
        } catch (Exception e) {
            e.printStackTrace();
            return 0L;
        }
    }

    // ===============================list=================================

    /**
     * 获取list缓存的内容
     *
     * @param key   键
     * @param start 开始
     * @param end   结束 0 到 -1代表所有值
     */
    public List<Object> lGet(String key, long start, long end) {
        try {
            return redisTemplate.opsForList().range(key, start, end);
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }
    }

    /**
     * 获取list缓存的长度
     *
     * @param key 键
     */
    public Long lGetListSize(String key) {
        try {
            return redisTemplate.opsForList().size(key);
        } catch (Exception e) {
            e.printStackTrace();
            return 0L;
        }
    }

    /**
     * 通过索引 获取list中的值
     *
     * @param key   键
     * @param index 索引 index>=0时， 0 表头，1 第二个元素，依次类推；index<0时，-1，表尾，-2倒数第二个元素，依次类推
     */
    public Object lGetIndex(String key, long index) {
        try {
            return redisTemplate.opsForList().index(key, index);
        } catch (Exception e) {
            e.printStackTrace();
            return null;
        }
    }

    /**
     * 将list放入缓存
     *
     * @param key   键
     * @param value 值
     */
    public boolean lSet(String key, Object value) {
        try {
            redisTemplate.opsForList().rightPush(key, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 将list放入缓存
     *
     * @param key   键
     * @param value 值
     * @param time  时间(秒)
     */
    public boolean lSet(String key, Object value, long time, TimeUnit timeUnit) {
        try {
            redisTemplate.opsForList().rightPush(key, value);
            if (time > 0) {
                expire(key, time, timeUnit);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 将list放入缓存
     *
     * @param key   键
     * @param value 值
     */
    public boolean lSet(String key, List<Object> value) {
        try {
            redisTemplate.opsForList().rightPushAll(key, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 将list放入缓存
     *
     * @param key   键
     * @param value 值
     * @param time  时间(秒)
     */
    public boolean lSet(String key, List<Object> value, long time, TimeUnit timeUnit) {
        try {
            redisTemplate.opsForList().rightPushAll(key, value);
            if (time > 0) {
                expire(key, time, timeUnit);
            }
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 根据索引修改list中的某条数据
     *
     * @param key   键
     * @param index 索引
     * @param value 值
     */
    public boolean lUpdateIndex(String key, long index, Object value) {
        try {
            redisTemplate.opsForList().set(key, index, value);
            return true;
        } catch (Exception e) {
            e.printStackTrace();
            return false;
        }
    }

    /**
     * 移除N个值为value
     *
     * @param key   键
     * @param count 移除多少个
     * @param value 值
     * @return 移除的个数
     */
    public Long lRemove(String key, long count, Object value) {
        try {
            return redisTemplate.opsForList().remove(key, count, value);
        } catch (Exception e) {
            e.printStackTrace();
            return 0L;
        }
    }

    // ===============================HyperLogLog=================================

    public long pfAdd(String key, String value) {
        return redisTemplate.opsForHyperLogLog().add(key, value);
    }

    public long pfCount(String key) {
        return redisTemplate.opsForHyperLogLog().size(key);
    }

    public void pfRemove(String key) {
        redisTemplate.opsForHyperLogLog().delete(key);
    }

    public void pfMerge(String key1, String key2) {
        redisTemplate.opsForHyperLogLog().union(key1, key2);
    }

    // ===============================ZSet=================================

    /**
     * ZSet添加成员
     * <p>
     * 向有序集合中添加一个成员和对应的分值
     *
     * @param key    键
     * @param member 成员
     * @param score  分值
     * @return 是否成功添加
     * @author 北渡
     */
    public Boolean zAdd(String key, Object member, double score) {
        return redisTemplate.opsForZSet().add(key, member, score);
    }

    /**
     * ZSet添加成员
     * <p>
     * 批量添加多个成员和对应的分值
     *
     * @param key    键
     * @param tuples 有序集合
     * @return 成功添加的成员数量
     * @author 北渡
     */
    public Long zAdd(String key, Set<ZSetOperations.TypedTuple<Object>> tuples) {
        return redisTemplate.opsForZSet().add(key, tuples);
    }

    /**
     * ZSet查询指定范围内的成员和对应的分数
     * <p>
     * 批量添加多个成员和对应的分值
     *
     * @param key   键
     * @param start 起始索引，从0开始计数。
     * @param end   结束索引，-1表示获取所有成员。
     * @return 成功添加的成员数量
     * @author 北渡
     */
    public Set<ZSetOperations.TypedTuple<Object>> zRangeWithScores(String key, long start, long end) {
        return redisTemplate.opsForZSet().rangeWithScores(key, start, end);
    }

    /**
     * ZSet自增操作
     * <p>
     * 对有序集合中指定成员的分值进行自增操作。
     *
     * @param key    键
     * @param member 成员
     * @param delta  步进
     * @return 自增后的新分值
     * @author 北渡
     */
    public Double zIncrBy(String key, Object member, double delta) {
        return redisTemplate.opsForZSet().incrementScore(key, member, delta);
    }

}
